with Ada.Integer_Text_Io;
with Ada.Text_Io;

use Ada.Integer_Text_Io;
use Ada.Text_IO;

procedure F2 is
begin
   
   for I in 1..10 loop
      Push(V,I);
   end loop;
   
   Put(Top(V));
   Pop(V);
   Put(Top(v));
   
end F2;
